home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / mac / files / ID99MENU.DIR / 00012_Script_12 < prev    next >
Text File  |  1999-04-29  |  917b  |  35 lines
  1. global tickrate,oldticks,rollvolume,jurorspeaking,globalidvolume
  2.  
  3. on exitFrame
  4.   t = the ticks
  5.   tickrate = min(40,max(2,((t - oldticks)*3+tickrate)/2))
  6.   oldticks = t
  7.   if the shiftdown then
  8.     set the volume of sound 2 to rollvolume
  9.   else
  10.     set the volume of sound 2 to min(50,rollvolume)
  11.   end if
  12.   rollvolume = 0
  13.   if soundbusy(4) then
  14.     v4 = the volume of sound 4
  15.     if v4 <> globalidvolume then
  16.       set the volume of sound 4 to globalidvolume
  17.     end if
  18.   else
  19.     set jurorspeaking = 0
  20.   end if
  21.   if soundbusy(1) then
  22.     v1 = the volume of sound 1
  23.     v4 = the volume of sound 4
  24.     if soundbusy(4) then
  25.       if v1 <> (globalidvolume * .3) then
  26.         set the volume of sound 1 to (globalidvolume * .3)
  27.       end if
  28.     else
  29.       if v1 <> globalidvolume then
  30.         set the volume of sound 1 to globalidvolume
  31.       end if
  32.     end if
  33.   end if
  34.   go the frame
  35. end